sub RenderTopBottom()
	'We need to make this!
	'100% text. Get font RGBs from Cha0s's code.
	
	'Here we will render the top
	'Set the Foreground, then background
	color MenuForegroundFont, MenuBackgroundFont

	'Fill the whole thing with gray so we can print the help menu to the right
	locate 1, 1
	print string(TextScreenWidth, " ")

	'Now we are going to print the left aligned menu items
	locate 1, 1
	print "   File  Edit  View  Search  Run  Debug  Calls  Utility  Options"

	'So we have that printed. Now we need the right aligned help
	locate 1, TextScreenWidth - len("Help  ")
	print "Help  "
	
	'Now we need to draw the bottom
	'change the color
	color FooterForegroundFont, FooterBackgroundFont
	
	'Locate the bottom of the screen
	locate TextScreenHeight, 1
	
	'Make it all green so it looks good
	print string(TextScreenWidth, " ");
	
	'Print the footer
	locate TextScreenHeight, 1
	print " <Shift+F1=Help> <F6=Window> <F2=Subs> <F5=Run> <F8=Step>     " & chr(VerticleLine);

end sub
sub RenderMouse()
	dim as MouseType Mouse
	dim as integer TextX, TextY
	dim as integer Attribute, BackGround, ForeGround
	dim as any ptr MouseCursor
	
	MouseCursor = imagecreate(8, 16, rgb(168, 168, 168))
	
	with Mouse
		
		'Get the mouse data
		getmouse .X, .Y, .Wheel, .Button
		
		'Lets find out where we are
		TextX = .X - (.X mod TextWidth)
		TextY = .Y - (.Y mod TextHeight)
		
		put (TextX, TextY), MouseCursor, xor
		
		'Just for CLSing
		color 0, 0
		
	end with
	
	'Lets record our data
	with MouseData
		.X = Mouse.X
		.Y = Mouse.Y
		.Button = Mouse.Button
		.Wheel = Mouse.Wheel
		.TextY = TextY
		.TextX = TextX
	end with
end sub

sub RenderScreen()
	color 0, 0
	cls
	'Render the menu bar and the footer
	RenderTopBottom()
end sub
